home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / riruf1 / rufhelp.bas < prev    next >
Encoding:
BASIC Source File  |  1995-01-18  |  1.2 KB  |  49 lines
  1. Option Explicit
  2. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, ByVal dwData As Any) As Integer
  3. Global Const KEY_F1 = &H70
  4. Const HELP_QUIT = &H2       '  Terminate help
  5. Const HELP_CONTEXT = &H1    '  Display topic in ulTopic
  6. Const HELP_COMMAND = &H102  '  Execute Help macro
  7. Const HELP_INDEX = &H3      '  Display index
  8. Const HELP_CONTENTS = &H3   '  Display Help for a particular topic
  9. Const HELP_SEARCH = &H105   '  Display help search dialog
  10. Dim sHelpFile$
  11. Dim hWnd%
  12.  
  13. Sub CallHelp (ByVal lContext As Long)
  14.     Dim x%
  15.     x = WinHelp(hWnd, sHelpFile, HELP_CONTEXT, lContext)
  16. End Sub
  17.  
  18. Sub EndHelp ()
  19.     Dim x%
  20.     Dim aLong&
  21.     aLong = 0
  22.     x = WinHelp(hWnd, sHelpFile, HELP_QUIT, aLong)
  23. End Sub
  24.  
  25. Sub HelpContents ()
  26.     Dim x%
  27.     Dim aLong&
  28.     aLong = 0
  29.     x = WinHelp(hWnd, sHelpFile, HELP_CONTENTS, aLong)
  30. End Sub
  31.  
  32. Sub HelpIndex ()
  33.     Dim x%
  34.     x = WinHelp(hWnd, sHelpFile, HELP_INDEX, 0)
  35. End Sub
  36.  
  37. Sub HelpSearch ()
  38.     Dim x%
  39.     Dim aLong&
  40.     aLong = 0
  41.     x = WinHelp(hWnd, sHelpFile, HELP_SEARCH, aLong)
  42. End Sub
  43.  
  44. Sub InitHelp (sFile As String, ByVal hMainWnd As Integer)
  45.     sHelpFile = sFile
  46.     hWnd = hMainWnd
  47. End Sub
  48.  
  49.